home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / prolog1.arc / PROLIB.PRO < prev    next >
Encoding:
Text File  |  1985-03-14  |  384 b   |  14 lines
  1.   EXPORT [append, equ].
  2.   IMPORT foo.
  3.   EXPORT grotz.
  4.   grotz :- foo.
  5.   equ( V, V ).
  6.   append( [], L, L ).
  7.   append( [Z|L1], L2, [Z|L3] ) :- append( L1, L2, L3 ).
  8.   printstring( [] ).
  9.   printstring( [H|T] ) :- put( H ), printstring( T ).
  10.  
  11.  
  12.   rev( [], [] ).
  13.   rev( [H|T], L ) :- rev( T,Z), append( Z, [H], L ).
  14.